home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs05.d81 / evsbasic.arc / MODES 1-2-3.DMO (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  867b  |  39 lines
  1. 10 PRINT"[147] THIS PROGRAM DEMONSTRATES THE TEXT"
  2. 15 PRINT" GRAPHIC MODES 1, 2, AND 3."
  3. 20 PRINT
  4. 25 PRINT" SCREEN AND COLOR CODES ARE POKED"
  5. 30 PRINT" DIRECTLY TO MEMORY AND APPEAR ON THE"
  6. 35 PRINT" SCREEN.  ALTHOUGH NO CHARACTER IMAGES"
  7. 40 PRINT" ARE REDEFINED BY THIS PROGRAM, THE"
  8. 45 PRINT" APPEARANCE OF THE SCREEN DIFFERS"
  9. 50 PRINT" MARKEDLY IN EACH GRAPHIC MODE."
  10. 55 PRINT
  11. 60 PRINT" WHEN THE PROGRAM IS RUNNING, PRESS THE"
  12. 65 PRINT" '1', '2', OR '3' KEYS TO CHANGE MODES."
  13. 70 PRINT" PRESS 'SPACE' TO QUIT THE PROGRAM."
  14. 75 PRINT
  15. 80 PRINT" PRESS ANY KEY TO START."
  16. 85 :
  17. 90 A$=(null)(1)
  18. 95 :
  19. 100 (null)1: (null)1,1,5,2,7
  20. 105 PRINT"[144] 1=NORMAL 2=MULTI 3=EXTEND SPACE=QUIT"
  21. 110 :
  22. 115 A$="1"
  23. 120 LO=-1:CH=-1:CO=-1
  24. 125 :
  25. 200 (null)
  26. 205 A=(null)("123",A$)
  27. 210 IFA<>0THEN(null)A+16
  28. 215 :
  29. 220 LO=LO+1+960*(LO=959)
  30. 225 CH=CH+1+256*(CH=255)
  31. 230 CO=CO+1+16*(CO=15)
  32. 235 POKE50216+LO,CH
  33. 240 POKE55336+LO,CO
  34. 245 :
  35. 250 GETA$
  36. 255 (null) (null)A$<>" "
  37. 260 :
  38. 300 (null)0: (null)14,6: (null)14
  39.